home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / languages / obrn-a_1.5_bin.lha / oberon-a / bin2.lha / macros / Oberon-A.aedrc
Encoding:
Text File  |  1994-08-08  |  2.6 KB  |  57 lines
  1. # AmokEd 1.41 setup for Oberon-A
  2. # Created by Frank Copeland
  3.  
  4. menuoff
  5.  
  6. menuaddt Oberon (Main module      ca-m)    ca-m
  7. menuaddt Oberon (Library module   ca-l)    ca-l
  8. menuaddsep Oberon
  9. menuadd  Oberon (Compiler options   a-F1)  a-f1
  10. menuaddt Oberon (New symbol file  ca-n)    ca-n
  11. menuaddt Oberon (Debug symbols    ca-d)    ca-d
  12. menuadd  Oberon (Pre-Linker options a-F2)  a-f2
  13. menuadd  Oberon (Linker options     a-F3)  a-f3
  14. menuaddsep Oberon
  15. menuadd  Oberon (Compile              F1)    f1
  16. menuadd  Oberon (Pre-link             F2)    f2
  17. menuadd  Oberon (Link                 F3)    f3
  18. menuadd  Oberon (Run                  F4)    f4
  19. menuaddsep Oberon
  20. menuadd  Oberon (Read Errors          F6)    f6
  21. menuadd  Oberon (First Error          F7)    f7
  22. menuadd  Oberon (Next Error           F8)    f8
  23. menuadd  Oberon (Prev Error         s-F8)  s-f8
  24. menuadd  Oberon (Clear Errors         F9)    f9
  25.  
  26. menuon
  27.  
  28. map f1   (if m saveold rx2 DoOC.rexx \$filename \$screenname)
  29. map f2   (if 13 (top first ` ' left find MODULE wright scanf %[~;] top first del resettoggle modified rx2 DoOL.rexx \$scanf \\$screenname))
  30. map f3   (if 13 (top first ` ' left find MODULE wright scanf %[~;] top first del resettoggle modified rx2 DoLink.rexx \$scanf \\$screenname))
  31. map f4   (if 13 (top first ` ' left find MODULE wright scanf %[~;] top first del resettoggle modified rx2 DoRun.rexx \$scanf \\$screenname))
  32. map a-f1 (escimm (setenv OC_ARGS `\$OC_ARGS'))
  33. map a-f2 (escimm (setenv OL_ARGS `\$OL_ARGS'))
  34. map a-f3 (escimm (setenv LINK_ARGS `\$LINK_ARGS'))
  35. map ca-l (toggle 10 checktoggle (Oberon-Library module   ca-l) ifelse 10 (checkreset (Oberon-Main module      ca-m) resettoggle 13 setenv OC_ARGS (DST OLIB:)) (setenv OC_ARGS (SYM Code DST Code)))
  36. map ca-n (toggle 11 checktoggle (Oberon-New symbol file  ca-n) ifelse 11 (setenv OC_NEWSYMFILE YES)   (setenv OC_NEWSYMFILE NO))
  37. map ca-d (toggle 12 checktoggle (Oberon-Debug symbols    ca-d) ifelse 12 (setenv OC_DEBUG YES)        (setenv OC_DEBUG NO))
  38. map ca-m (toggle 13 checktoggle (Oberon-Main module      ca-m) if 13 (checkreset (Oberon-Library module   ca-l) resettoggle 10 setenv OC_ARGS (SYM Code DST Code)))
  39.  
  40. map   f6 (rx ReadErr.aed)
  41. map   f7 (noscrupdate top first find `\\\^--')
  42. map   f8 (findstr `\\\^--' next)
  43. map s-f8 (findstr `\\\^--' prev)
  44. map   f9 (noscrupdate top findstr `\\\^--' repeat -1 (first next deline))
  45.  
  46. resettoggle 10 setenv OC_ARGS (SYM Code DST Code)
  47. # NEWSYMFILE off
  48. resettoggle 11 setenv OC_NEWSYMFILE NO
  49. # DEBUG on
  50. settoggle 12 setenv OC_DEBUG YES checkset (Oberon-Debug symbols    ca-d)
  51. # Main module off
  52. resettoggle 13
  53. # OL_ARGS
  54. setenv OL_ARGS (SRC Code DST Code)
  55. # LINK_ARGS
  56. setenv LINK_ARGS (VERBOSE NODEBUG SMALLCODE SMALLDATA)
  57.